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| **FILE**1D**PATPAR 
PPPPPPPP AAAAAA TTTTTTTTTT PPPPPPPP AAAAAA RRRRRRRR 
PPPPPPPP ARALAS TTTTTTTTTT PPPPPPPP AAAAAA RRRRRRRR 
PP PP AA AA TT PP PP AA AA RR RR 
PP PP AA oa TT PP PP AA AA RR RR 
PP PP AA AA TT PP PP AA AA RR RR 
PP PP AA AA TT PP PP AA AA RR RR 
PPPPPPPP AA BA TT PPPPPPPP AA AA RRRRRRRR 
PPPPPPPP AA AR TT PPPPPPPP AA AA RRRRRRRR 
PP AAAAAAAAAA TT PP AAAAAAAAAA RR RR 
PP AAAAAAAAAA TT PP AAAAAAAAAA RR RR 
PP AA AA TT PP Ab AA RR RR 
PP Aa ‘lal TT PP AA AA RR RR 
PP AA AA TT PP AA AA RR RR 
PP Aa AA TT PP Aa AK RR RR 
LL III1I1 SSSSSSSS 
LL IIIII1 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL II SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 


H 1 0001 0 MODULE PATPAR ( 

: ¢ L ait 8 ZIF XVARIANT EQL 1 

3 000 XTHEN 

; ¢ Boe 0 et ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE), 
: 6 9006 IDENT = 'V04-000") = 

ie eo 

: 10 484 i PRPS EE SESS S ESE S SESE CCCP PTT ePIC ITC ITT ISTIC S TILT C TITLES TTT ILT Tit Litiitiit 
; 1 '® y 
: 11 0011 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; \¢ pore 1 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; sz Beta : ‘* ALL RIGHTS RESERVED. * 
3 '® ~ 
; 0015 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 16 B26 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF S LICENSE AND WITH THE * 
"BO is 001 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 18 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 19 00°9 1 !* OQTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 $y pose ! . TRANSFERRED. « 
; 'e * 
.; Bos¢ 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 23 02 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $e Ose } - CORPORATION. + 
° ; t 
; 0026 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
$ 27 0027 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: 0028 1 !«* * 
; 2 0029 1 !* * 
: 30 0030 1 lake e eee eee ee RRR RR ERE AEE AREER ERE 
s 3) 0031 1! 

a Ones 1 ! FACILITY: PATCH 

ae 0033 1! 

; 34 0034 1 !++¢ 

3 35 0035 1 ! FUNCTIONAL DESCRIPTION: 

; = 0036 1! 

eee a 0037 1! Parser for MARS PATCH syntax 

; 0038 1! 

: 39 0039 1 ! Version: v02-025 

; £0 0040 1! 

: 41 1 ! History: 

3 42 4 1! Later: 

; re : Carol Peters, 03 Jul 1976: Version 01 

; 65 1 Modified by: 

; 28 ! Kathleen Morse, 13-Oct-77: Version x01.00 

F 48 i MODIFIED BY: 

; 2 1} v03-002 MCNO151 Maria del C. Nasr 13-Feb-1984 

8 7 Add VOLATILE qualifier to local NEXT_TOKEN to eliminate 

; 2g } information messages from the compilér. 

: 54 1 | v03-001 MTROO12 Mike Rhodes 16-Aug-1982 

;° # ' Modify file names to remove duplicate file name useage 

3 29 : between code and require files. 
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v04-000 984 

; 3 0038 zz v02-025 MTROOO2 hodes 01-0¢t-1981 

3 59 0059 1! Modif the este sf BATAREA BIT and add a new macro 

;: & 0060 1! SET_INIT_BIT to handle the VINITIALIZE qualifier. 

; 6 «(OF 0061 1! The macros set the appropriate context bits and 

; 6 BR0g 1! will set the correct values of the address of the 

; 6 0065 1! patch area descriptor and initial size value into 

3 ee Bete : the first element of the Linked argument List. 

oe 0066 1! v02-024 MTROOO1 Mike Rhodes 20-AUG-1981 

3 67 0067 1! Add HELP command. This inctudes 6 new macro for 

; & 0068 1! sayin. a descriptor to the rest of the command Line 

; & 0069 1! while coking the parser into believing its reached 

: 70 0070 1! the end of the Line (which causes the command to be 

; | Bo) : executed). The macro is called GET "HELP. TOPIC. 

ak 0073 1! v02-023 PCG0001 Peter G orge 02-F EB-1981 

: fe pore : Add require statement _ 1B$:PATDEF .REQ 

; 0076 1 ! Revision history: 

3 77 0077 1! 

: 78 0078 1! NO DATE PROGRAMMER PURPOSE 

: 79 0079 1! == wee meme ene 

; 80 0080 1! 

$ 81 0081 1! OO 18-OCT-77 K.D. MORSE ADAPT VERSION 31 TO PATCH 

3 82 008 1: OF 29-DEC-77 K. D. MORSE ADD SET/SHOW MODULE/SCOPE CMDS. (44) 
85 0083 1! O02 4=JAN-78 K.D. MORSE NO CHANGES FOR VERS 32-41 

;. 0084 1! IN MACRO GET_ OTED_STG. DON'T 

s 85 0085 1! ACCEPT INPUT UNLESS EITHE 

3 86 0086 1! INSTRUCTION MODE OR ASCII MODE 

ca). ir 0087 1! IS SET. (42) 

: 86288 0088 1! NO CHANGES FOR R 43,45. 

oe 0089 1! DON'T ALLOW DIVISION BY ZERO (46). 
;s 0090 1! NO CHANGES FOR 47. 

cio OF 0091 1! CHANGE PARSE STACK OFFSETS TO 

. 0092 1! yd DEFINED IN PATMSG.REQ. (48) 
; 935 0093 1! LACE TYPE ON ARGUMENT LIST AS 

b4 4 0094 1! UECL AS EXPRES 

; 0095 1! CHANGE EACH ELEMENT OF a wi rt 
3 0096 1! STACKS TO BE PATSK_STELM SIZ ( ate P 
; 0097 1! FOLLOW A FINAL CALC TO 130! ILD_P 

~ 3 0098 1! WITH PLACING INTERGER TYPE a & 

; 0099 1! SEMAN? (49) 

; 100 0100 1! 03 24-JAN-78 K.D. MORSE NO CHANGES FOR VERS 50. 

: 30% 0101 1! Q4 27-JAN-78 K.D. MORSE ADD MACRO LINK_EXIT FOR THE 

: 102 0102 1! REPLACE AND VERIFY COMMANDS 

: 103 0103 1! OS  28-FEB-78 K.D. MORSE CHANGE MACRO GET QUOTED STG 

3 104 0104 1! TO ACCEPT ' AND ™. (57) 

s 105 0105 1! 06 =0Q1-MAR-78 K.D. MORSE NO CHANGES FOR 26: 

: 106 B08 1! Q7 24-MAR-78 K.D. MORSE NO CHANGES FOR 55-54. 

; 107 0107 1! O08 07-APR-78 K.D. MORSE INIT THE DELIMITER IN GET_QUOTED_STG (55). 
; 108 0108 1! BUILD PATH IS NOT THE FINAL WORD” 
; 109 319? 1! IN MACRO REDUCE _PATHNAME. (56) 

; 110 110 1! 09 14-APR-78 K.D. MORSE NO CHANGES FOR VERS. 57-59. 

: 111 0111 1! #10 #£18-APR-78 K.D. MORSE ADD actin ROUTINES TO SET BIT 

: ig Bite 1! LITERAL_BIT. 

ae 011 ;y 18-APR-78 K.D. MORSE ADD MACRO GET _FILE _SPEC FOR THE 
: 1146 0114 1! CREATE COMMAND. 
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! Global routine to parse an input Line 


' MARS action routines 


! Defines literals 


oeeeee eeeeeee «+ 
moococccccgCcoc0c0c0Cc0C00q 
UA 
Haaancacacaacaacaca 


R 
E 
T 
$s 
T 
T 
T 
ATP 
ATG 
TT 
T 
T 
Ss 
Pp 
S 


APAAAAAAAAAAAAAA 
MVELVDODLCVVCVVVVvVVY 
—- eee Seeecererara 
MMMM BIANMNMNMMNMNMNMNMNYM 


PATSPARS_A_LINE: NOVALUE; 
Y 
Xx 
E 
C 
F 
G 
$s 
T 
N 
R 
K 
C 
L 
T 
R 


MAR _REDUCTN, 


a a a 
qQaeaacacaacacacaca 
I ee tg Og Od ag nd et et et 


FORWARD ROUTINE 


j@aacacaacacacaca 
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SWITCHES LIST (SOURCE); 


EXTERNAL ROUTINE 
PATS$fao_out; 


1g Beoct9Re 90:19:5 


! formats a Line and outputs to the terminal 
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A 
I 


1 Vv 

e: 3 

REQUIRE ‘SRC$:PATACS.REQ' ; 

REQUIRE "SRC$:PATTAB.REQ' : 
EXTERNAL 42 thy 

PAT AR 


D_ARG 
PAT$BUICD PATH 
PATSF IND MODULE, 
PATSF 


PAT$GET_A. TOKEN, 
PATSINIT_MODES 
PATSPERF ORM CMD, 


ase Labels for MARS syntax 
Parse tables for MARS 


Adds arguments to the command argument Lis. 
Routine to build a path name 
Finds the RST address of a module 
Allocate a block of free storage 

Get a single token from input buffer 
Initializes input and output modes 
Executes a complete command 


WN @OOWONOULSWN OOOO 


s 365 gee 1 

; 1 801 1 

3 1 4714 1 

; 16 4715 1 

; 1¢ 14) 1 

. oF 4717 1 

3; i at 1 

; VW 4719 1 

, 32 4720 1 

; if 4721 1 

; 17 47 ; 1 

; WV? 47 1 PATSPROMPT READ, Prompts and reads a command Line 

; 17 4724 1 PATSSET_COMQUAL, Sets command qualifier indicators 

; ie 4725 1 ATSSET_MOD_LVL, Resets modes to a certain level 

: 7 47 § 1 PATSSET OVERS Sets override or local modes 

: Hs rs 4 : PATSTRANS_NAME ; Translates a name into a binary value 

; 16 oie? 1 EXTERNAL 
: 18 4730 1 PATSGL_HELP_LIN : BLOCK (8,BYTE), ! Global descriptor to remainder of command | 
> 184 4731 1 PATSGL_FLAGS ! CLI flags | 
; 185 473e 1 PAT$GB_MOD PTR : REF VECTOR C, BYTE, i Current mode 

; 186 4733 1 PATSGL_COMOUAL: BITVECTOR, ' Contains the command qualifier indicators | 
; «187 4734 1 PATSGL_CONTEXT: BITVECTOR, ! Context word 
; 188 4735 1 PATS$SGL_HEAD_LST, ! Head of Linked argument List 

; iW 4736 1 PATSGL_TAIL_LST, ! Tail of Linked argument List 

; 190 4737 1 PATSGL_SEMAN1: VECTOR, ! Semantic stack for tokens 

; «191 4738 1 PATSGL_SEMAN2: VECTOR; ! Semantic stack for string pointers 

; 192 4739 1 

3 193 4740 1! 

: 194 4741 1 ! OWN STORAGE 

s 195 ores 1! 

i 19% 4743 1 OWN 5 

; «19 4744 1 QUOTE_INDIC; ! Indicator if parameter was quoted string 
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! The following macros are simple actions to perform with red 


! the grammar 


of calling global routines, these macros are simply expande 


MACRO 


'4¢ 


- They correspond to the action routines in PAT 


arc 
oon 
+ —te? 
ae 
Do 
o-ms 
--oOwW 


; The first set of macros do arithmetic. 


le4 

' The 
! to 
the 


ADDIT 


le4 
! The 


- 


DIVIS 


ADDITION macro adds the value at the top of the stack 
the value at the third poss sen in the stack and places 
result at the top of the stack. 


ION (SEMSP) = 
PATSGL_SEMAN1 CSEMSP] = .PATSGL_SEMAN1 CSEMSP] + .PATSGL_SEMAN1 CSEMSP + PATS$K_SPOS_TWOJ%, 


DIVISION macro divides the value at the top of the stack 


the value at the third position in the stack and places 
result at the top of the stack. 
ION (SEMSP) = 

BEGIN 


IF .PATSGL_SEMAN1 CSE 
THEN SIGNAL (PAT$_DIVZ 
pATSG. SEAM CSEMSP) 


SP + PATSK_SPOS_TWO) EQL 0 
RO+MSGSK ; 


M 
E WARN) ; 
-PATSGC_SEMAN1 CSEMSP] / .PATSGL_SEMAN1 CSEMSP + PATSK_SPOS_TWO); 


: apiece ee BET THIS WILL NOT WORK DUE TO MAPPED ADDRESSES. ***««« 


i The 


INDIRECTION macro considers the value at the second position 


! in the stack to be an address. It takes the contents of that 
' address and places it on the top of the stack. 


INDIRECTION (SEMSP) = 


lee 

! The 
! the 
and 


PATSGL_SEMAN1 CSEMSP] = ..PATSGL_SEMAN1 CSEMSP + PATSK_SPOS_ONEJ2, 


MULTIPLICATION macro multiplies the value at the top of 
stack to the value at the third position on the stack 
places the result at the top of the stack. 


MULTIPLICATION (SEMSP) = 
PAT 


'e+ 
! The 
' pos 


SGL_SEMAN1 CSEMSP] = .PATSGL_SEMAN1 CSEMSP] * .PATSGL_SEMAN1 CSEMSP + PATSK_SPOS_TWOJ%, 


_NEGATION macro negates the value found in the second 
ition on the stack and places the result on the top of 


the stack. 


NEGAT 


'e¢ 


ION (SEMSP) = 
PATSGL_SEMAN1 CSEMSP] = - .PATSGL_SEMAN1 CSEMSP + PATSK_SPOS_ONEJ2, 


° 7 
CIPATPAR.B32:1> (3). 
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; § 4 8 1 ! The POSITIVE macro takes the value found in the second 

; ? 87 ! } position on the stack and places it on the top of the stack. 

3 § Mm 4805 1 POSITIVE (SEMSP) = 

; rs 2 $6 : PATSGL_SEMAN1 CSEMSP] = .PATSGL_SEMAN1 CSEMSP + PATSK_SPOS_ONEJ%Z, 
>; 26 4808 1 '+4 

3; ¢€ 4809 1 : an Pie phe he ape macro takes the value found in the second 

3 ee : 19 ! } position on the stack and places it on the top of the stack. 

HY 66 M4 \¢ 1 REMOVE_PARENS (SEMSP) = 

; of 2 F ! PAT$SGL_SEMAN1 CSEMSP] = .PATSGL_SEMAN1 CSEMSP + PATSK_SPOS_ONEJ%Z, 
; 269 4815 1 '+4 

; 270 4816 1 : The ARITH_SHIFT macro shifts the value at the top of the 

s eri 4817 1 ' stack by the value found in the third position on the stack 

3 sie sai8 : and places the result on the top of the stack. 

; 274 M 4820 1 ARITH_SHIFT (SEMSP) = 

; 379 482) 1 PATSGL_SEMAN1 CSEMSP] = .PATSGL_SEMAN1 CSEMSP] * .PATSGL_SEi.aN1 CSEMSP + PATSK_SPOS_TWOJ%, 
; $35 $852 1 '+¢ 

; 278 4824 1 ! The SUBTRACTION macro subtracts the value found in the third 

3; ay 4825 1 ! position on the stack from the value at the top of the stack 

: seo eth} : } and places the result on the top of the stack. 

H 28 M 4828 1 SUBTRACTION (SEMSP) = 

; Sez ret 34 ; PATSGL_SEMAN1 CSEMSP] = .PATSGL_SEMAN1 CSEMSP] - .PATSGL_SEMAN1 CSEMSP + PATS$K_SPOS_TWOJ%, 
> 285 4831 1 144 ' 

; 286 ett 1 ! The COMPLEMENT macro applies the NOT operator to the value 

; 287 48335 1 ! found in the second position on the stack and places the 

; 288 4834 1 ' result on the top of the stack. 

: 289 4835 1 !—< 

; 290 M 4836 1 COMPLEMENT (SEMSP) = 

: $3) ret t4 ! PATSGL_SEMAN1 CSEMSP] = NOT .PATSGL_SEMAN1 CSEMSP + PATSK_SPOS_ONE)%, 
3 595 4839 1 !++ 

> 294 4840 1 ! The LOGICAL_OR macro applies the OR operator to the values found 

; 44 4841 1 ! in the first and third position on the stack and places the 

: 296 re TK 1 ! result on the top of the stack. 

; 297 4843 1 !== 

: 298 Mm 4844 1 LOGICAL_OR (SEMSP) = 

: ™ 4845 1 PATSGL_SEMAN1 CSEMSP] = .PATSGL_SEMAN1 CSEMSP] OR 

; 300 4846 1 -PATSGC_SEMAN1 CSEMSP + PATS$K_SPOS_TWOJ%. 
; 301 4847 1 

3 4 4848 1 '+¢ 

; 30 4849 1 ' The LOGICAL_AND macro sept ies the AND operator to the values 

3; 304 4850 1 ! found in the first and third position on the stack and places 

s 505 ret? ' } the result on the top of the stack. 

; 09 M 4858 1 LOGICAL_AND (SEMSP) = 

$ 08 mM 4854 1 PATSGL_SEMAN1 CSEMSP] = .PATSGL_SEMAN1 CSEMSP] AND 

; 309 4855 1 -PATSGC_SEMAN1 CSEMSP + PATSK_SPOS_TWOJ%, 
; 310 $328 1 

; 311 4857 1 144 ee 

: 312 4858 1 ! The EXTRACT_BITS macro extracts a bit field from the value 
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. We 4859 1 ! o the top of the stack and places that bit field tt 

> 314 4860 1 i top of she stack. the anon, th bit number of the bit etd 

s 315 4 2 1 i is in th fifth position on the stack. The end position 

: 1 4 ¢ 1 i of the bit field is in the third position. After the value 

: i? iB : i _is cateasted. the mode is reset to override level. 

; 319 M 4865 1 EXTRACT_BITS (SEMSP) = 

3 0 M rer] 1 BEGIN 

3 1 M 4867 1 

; ¢ M 4868 1 LOCAL 

: MG 4 1 VALUE : BLOCK (4, BYTE]; 

3 $¢ M4870 1 

3 5 M 4871 1 VALUE = .PATSGL ni CSE CSEMSP); 

: 26 M 188 1 IF (. PATSGL_ SEMAN SEMSP + PATSK ~ 308. TWO] GTR 31) OR 

s Ser M 487 1 (. PATSGL “SEMA Ni CSEMSP + PATSK— _9PO0S “FOUR A. 31) OR 
; ; 8 M 4874 1 (.PATSGL_SEMAN1 CSEMSP + PATSK-SPOS_FOUR] GTR 

: 2 m 4875 1 -PATSGL_SEMAN1 CSEMSP + PATSK _SP0S_TWOJ) 
: 330 4 4876 1 THEN 

3 635) M 4877 1 SIGNAL (PATS EXTOITOnS68r WARN) 

: 332 Mm 4878 1 PATSGL_SEMAN1 CSEMSP J = .VALUE [£07 PATSGL. SEMAN1 CSEMSP + PAT$K_SPOS_FOUR], 
s 335 mM 4879 1 -PATSGL_ ncn) CSEMSP + PAT$K SPOS TWO] - 

3; «4334 mM 4880 1 TSGL_SEMAN1 FSen MSP + PAT$K_SPOS_FOUR] + 1, 01; 
ae 3oe Mm 4881 1 PATSINIT MODES (LOCAL MOBE, oyran tee MODE); 

: $39 4 rt : at ed Rob LVL (OVERRIDE _MODE) ; 
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The next few macros put items into Linked Lists. 


44 
! The LINK_ARG_PAIR macro calls the routine PATSADD_ARG to place 
: the value at the te of the stack as a new Link in the command 
! argument List. If the new Link is created successfully, then 
! the value found at the third posttien on the stack is paced 
! in the new Link as well, at the position called LINK_ELEM_EXP2. 
LINK_ARG PAIR (SEMSP) = 

IF (,QUOTE_INDIC) 

THEN 


SIGNAL (PATS_INVQUO+MSGSK_WARN) ; 
PATSADD_ARG (,PATS$GC_SEMAN1 CSEMSP]); 
L1ST_ELEM_EXPé (,PATSGL_TAIL_1 ST) = .PATSGL_SEMAN1 CSEMSP + PATS$K_SPOS_TWwO); 


44 

! The LINK_ARG macro calls the routine PATSADD_ARG to create 

! a new Link in the command argument list, and to insert in that 
._link the value found at the top of the stack. 


LINK_ARG (SEMSP) = 
BEGIN 


IF (.PAT$GB_MOD_PTRCMODE_INSTRUC] OR .PATSGB_MOD_PTRLMODE_ASCI1IJ) AND 
(NOT .QUOTE_INDIC) 


SIGNAL (PAT$_NOTQUO+MSG$K_WARN) ; 
QUOTE_INDIC = FALSE: 
pAtenwe Ane (.PATSGL_SEMAN1 CSEMSP)): 


'+¢ 

: The LINK_NUM macro calls the routine PATSADD_ARG to create 

' a new Link in the command rpment List, and to insert in that 

! Link the location found at the top of the stack. This macro expects 
! an address and so no quoted string should have been given. 


LINK_NUM (SEMSP) = 
BEGIN 
IF (,QUOTE_INDIC) 
THEN 


SIGNAL (PATS_INVQUO+MSG$K_WARN) ; 
PATSADO ARS (.PATSGC_SEMAN1 CSEMSP)); 


lee 

! The LINK_EXP_NAME macro calls the routine PATSADD_ARG to create 
! a new Link in the command argument List and to place in that 

! tink the address value found at the top of the second parse 

! stack. This address is the address of a string descriptor. 

! If the new Link is created successfully, the value found at 

! the third position on the first parse praek is placed in the 

! Link im the position called LIST_ELEM_EXP2. 


ee ee ee ee | | | __.__._.__..e  ee  S 
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.% ; 
PATPAR 16-Sep-1984 00:19:31 VAX=11 Bliss-32 V4.0-742 Page 11 PA 
V04-000 Megeer19RG 12:52:42 DISKSUMGMASTERSCPATCH.SRCIPATPAR.B32¢4°° (4) vor 
> 396 4941 1 se : 
; 44 P 5 : LINK_EXP_NAME (SEMSP) = : 
; ay M4944 1 IF (.PAT$GB_MOD_PTRCMODE_INSTRUC] OR .PATSGB_MOD_PTRCMODE_ASCIIJ) AND ; 
; 400 ™ 4945 1 (NOT .QUOTE_TNDIC) : 
; 401 M4946 1 EN : 
; 40 M4947 1 SIGNAL (PAT$_NOTQUO+MSG$K_WARN) ; : 
> 40 M4948 1 QUOTE _INDIC = FALSE; ; 
: 404 M4949 1 PATSADD_ARG (.PATSGL_SEMAN2 CSEMSP)); ; 
> 405 M4950 1 LIST_ELEM_EXP2 (.PATSGL_TAIL_LST) = .PATS$SGL_SEMAN1 CSEMSP + PATSK_SPOS_TWwWO); | 3] 
; 406 4951 1 END%, = 
: 407 1928 1 a 
; 408 49535 1 ‘| 
; 409 4954 1 ++ : 3. | 
; 410 4955 1 : The LINK_NAME macro calls the routine PATSADD_ARG to create ; 
> 411 4956 3 ‘ a new Link in the command argument list, and fo insert in that 2 
; ai8 rhe ts ; link the string descriptor address found at the top of the stack. = 
> 414 m 4959 1 LINK_NAME (SEMSP) = 3) 
; 415 4960 1 PATSADD_ARG (.PAT$GL_SEMAN. CSEMSP])%, 3 
> 416 4961 1 = 
: 417 4962 1 ae 
> 418 4963 1 1++ eS 
; 419 4964 1 ! The LINK_EXIT macro puts an EXIT_TOKEN into the second expression - 
:; 420 4965 1 : location of the last argument on the Aner, List. The location ei 
; 421 4966 1 ! of this argument is known via PATSGL_TAIL_LST, which is updated 2 
: 422 4967 1 ! whenever any argument is added. Note that LINK_EXIT may only be oe 
> 423 4968 1 ! called for arguments that are not ranges. $4 
> 424 4969 1 loo : | 
> 425 M4970 1 LINK_EXIT = : | 
: 426 4971 1 LIST_ELEM_EXP2(.PATSGL_TAIL_LST) = EXIT_TOKENZ, : | 
: 427 4972 1 : | 
: 428 4973 1 !+4 : 
; 429 4974 1! The next macro does special translation of a module name. : | 
; 430 4975 1 !-- : | 
3; 431 4976 1 s | 
; 432 4977 1 ++ - : 3 | 
: 433 4978 1 ! The ADD_MODULE macro translates the ascii name of a module into 8 
: 434 4979 1 ' the address of that module's record in the RST, and puts that : 
> 435 4980 1 ! address onto the top of the parse stack. : 
: 436 4981 1 aed : 
: 437 m 4982 1 ADD_MODULE (SEMSP) = : 
; 438 49835 1 PATSGL_SEMAN1 CSEMSP] = PATSFIND_MODULE (LEX_STG_DESC, TRUE)2Z, : 
: 439 4984 1 : 
: 440 4985 1 ++ : 
3 «(641 4986 1 ! The SAVE_NAME macro allocates an area of free storage to hold ; 
> 442 4987 1 ! the name of a symbol and a string descriptor to that symbol. ; 
3; 443 4988 1 ! This macro is called when a name occurs in a DEFINE command, : 
3 444 4989 1 ! and the name stored in free storage is used by PATSDEFINE_SYM. : 
5 rat rhe : } The storage is freed by PATSPERFORM_CMD. : 
3: 447 4992 1 ! ALL this string descriptor baggage seems rather cumbersome : 
3; 64468 4993 1 ! here. Maybe at some later point, the use of string descriptors 3 
: re ceee in this case should be changed to counted strings. : 
3; 451 M4996 1 SAVE_NAME (SEMSP) = : 
; 452 m 4997 1 BEGIN : 


| 
| 


dD 1 
| PATPAR 16-Sep-1984 99 19:31 VAX=11 Bliss-32 V4.0-742 Page 12 
/v04-000 14-Sep-1984 52:42 DISKSVMSMASTER:CPATCH.SRCJPATPAR.B32;1 (4) 
i; 455 M4998 #1 
3 454 M4999 1 LOCAL 
is 4635 M5000 1 POINTER : REF VECTOR; 
/3 6456 M5001 1 POINTER = PATSFREEZ (((.LEX_§1G_DESC COSC$W_LENGTH] + 3) / A_LONGWORD) + 2); 
|; 457 M 200¢ 1 CHSMOVE (.LEX_STG DESC Eoscsi_LENGTHI, .LEX-STG_DESC CDSC$A_BOINTERJ, 
(3; «458 m 5003 1 POINTER [2)): 
'3; 6459 Mm 5004 1 POINTER £0} = .LEX STG pest foSC$W_LENGTHI; 
> 460 m 5005 1 POINTER C1) = POINTER [2]; 
: 461 m 5006 1 PATSGL_SEMAN2 CSEMSP] = .POINTER; 
; 462 5007 1 Dz, 
> 463 5008 1 
> 464 5009 1 i++ b 5 
3 465 5010 1 ! The next set of macros manipulates mode settings. 
; 466 5011 1 !<- 
; 467 a 1 
; 468 5013 1 ++ . 
: 469 5014 1 ! The SET_OVERR_MODE macro calls the routine PAT$SET_OVERS to 
; 470 5015 1 ! set the mode pointer to OVERRIDE level, and to set the mode 
; ry 2013 : according to the token found at the top of the stack. 
> 473 M5018 1 SET_OVERR_MODE (SEMSP) = 
> 476 M5019 1 BEGIN 
s 475 m 5020 1 PATSSET_OVERS (OVERRIDE_MODE, .PATSGL_SEMANICSEMSP]); 
: 476 M5021 1 PATSSET_COMQUAL (SEMSP) ; 
: 477 5022 1 END2, 
; 478 5023 1 
; 479 5024 1 ++ ; 
; 480 5025 1 ! The SET_DEC_OVERS macro calls the routine PATS$SET_OVERS to 
; 481 5026 1 : set the mode pointer to LOCAL level, and to set the mode 
: 482 5027 1 ' to decimal. 
; 485 5028 1 eed 
> 484 ™ 5029 1 SET_DEC_OVERS = 
> 485 m 5030 1 BEGIN 
; 486 M5031 1 PATSSET_MOD_LVL(OVERRIDE_ MODE); 
3; 487 M5032 1 PAT$SET_OVERS (LOCAL_MODE, DECIMAL_TOKEN); 
; 488 5033 1 END%, 
> 489 5034 1 
: 490 5035 1 ++ i * 
; «6491 5036 1 ! The SET_MODE_BIT macro turns on the default bit in the 
; 492 5037 1 ! PATCH context word. 
: 493 5038 1 leo 
> 494 m 5039 1 SET_MODE BIT = 
3; «495 5040 1 PATSGL_CONTEXT CMODE_BIT] = TRUEX, 
: 496 5041 1 
: 497 oneg 1 00 . “Pa 
; 498 5043 1! The next macro is GET QUOTED_STG. Its major failing is 
; 499 5044 1! that it writes into the input stream. This could be solved by 
: 500 5045 1! cats ing it with another argument, the string descriptor for a 
i: 501 5046 1 ! writable string. For the nonce, it writes into an otherwise pure 
; 502 5047 1 ! stream, 
; 503 5048 1 !-- 
; 504 5049 1 
; 505 5050 1 !++ j ; 7 
: 506 5051 1 ! The mext macro collects a string that is enclosed in quotes. 
; 507 en26 1 !-- 
; 508 5055 1 
; 509 5054 1 !++ 
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! The GET_QUOTED_STG macro reads characters from the input string. 1 
picks up the delimiting character (* or "') and reads until the next 

occurance of that character. If none is found, the invalid command 

! message is output, and end of Line processing is done. Otherwise, the 

Length of the string is placed in the position of the gpening quote. 

A zero is placed in the position of the cheetne quote for end-of-Line. 

If the current mode is instruction mode, the address of the string is 


placed on the top of the first parse stack. Otherwise, the string 
must be ASCII, so it is reduced to four characters or less and placed 
on the top of stack. The parse string descriptor is updated to address 
the character after the closing quote. 


GET_QUOTED_STG (SEMSP) = 
BEGIN 


PAA 


MAP 
PARSE_STG_DESC : REF BLOCK C, BYTE); 


LOCAL 
CHAR 


COUN 
DELIMITER, 

INPUT PTR’: REF VECTORC,BYTE), 
TEMP_PTR; 


IF (NOT .PAT$GB_MOD_PTRCMODE_INSTRUCJ) AND 
(NOT .PATSGB~MOD~PTRLEMODE—ASCI1J) 


THEN 
IGNAL (PATS$_INVQUO+MSG$K_WARN) ; 


S 
DIC = TRUE; =i 
R = CHSPLUS (.PARSE_STG_DESC CDSC$A_POINTERJ, -1); ! Point to delimiter | 

= CHSPTR(.INPUT PTR, OJ; 
R = CHSRCHAR_ACINPUT_PTR); 
COUNT = 0; 
REPEAT a 

CHA HSRCHAR_A (INPUT_PTR); 

1 R EQL OF 


E 
HAR = C 
4 -CHA ! Line always ends with zero 


BREE EEE EWN PP NPoNnononys 3 2 SS ee 


a 

! This message has been made informational 

! instead of warning, to allow user typo's | 

! of eliminating the closing quote on symbolic 

! instructions. This will eliminate annoyance | 

of aborting the command after multiple input Lines. 


SIGNAL (PAT$_MISSQUO*MSGSK_INFO); | 
CHAR = .DELIAITER; 


END; 
IF (.CHAR EQL .DELIMITER) 
THEN 

BEGIN 


lee 

! Found a closing quote. Replace the opening 
! quote with the Length of the quoted string. 
! Replace th closing quote with a zero. This 
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iV v04-000 14-Sep-1984 1 93: 2:52:42 DISKSVMSMASTER: CPATCH.SRCIJPATPAR.B32;1 i. (4) 
3 56 ' is for forward referencing inside symbolic 
6 : instructions. 
CHSWCHAR is COUNT . TEMP_PTR); 


INPUT PTRL-1] = 6;° 
XI 


E TLOOP 
END 
ELSE 
BEGIN 
COUNT = .COUNT + 1; 
END; 
END; 


44 

i Quoted string found. Put the QTD_STG_TOKEN on the 

! the first parse stack. Put the address of the string on 
' the first parse stack. 

iF .PAT$GB_MOD_PTR rt INSTRUC] 

THEN PATSGC_SEMAN1 (SEMSP] = .TEMP_PTR 
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BEGIN 
MAP 
TEMP_PTR : REF VECTOR C, BYTE); 

LOCAL 
33¢ VALUE : VECTOR CA_LONGWORD, BYTE); 

VALUE = 0; 

INCR INDEX FROM OT 

CIF .TEMP PTR C0) LEQ 

599 THEN .-TEMP_PTR [OJ - 
600 ELSE 3) 
601 DO VALUE C.INDEX] = .TEMP_PTR C.INDEX + 1); 
ong IF .TEMP_PTR CO] GTR .PATSGB_MOD_PTR CMODE_LENGTH] 
604 SIGNAL (PAT$_STGTRUNC); 
605 PATSGL_SEMAN1 CSEMSP]™= .VALUE; 
606 END; 
607 
608 '++ 
609 i Now update the pecee spring descriptor so that the 
610 5 ' address of the buffer is the address of the character 
23 § i after the closing quote. 
613 8 PARSE _STG_DESC CDSCSA_POINTER] = CHSPTR (.INPUT_P 0); 
614 y PARSE_STG_DESC CDSCS$W_LENGTH] = .PARSE _STG DESC ~fostsu. LENGTH] = (.COUNT * 1); 
aE i tei 
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| PATPAR 1-se “1984 00:19:31 VAX=11 Bliss-32 V4.0-742 Page 15 
hee-Sene 12286874382 9:83:23 DISKSVMSMASTER:CPATCH. SRCJPATPAR.B32; 1° (5) 
i; 618 2188 5, 
3 619 165 1! This macro collects a file specification. 
1; 620 164 1 !-- 
i; 621 165 1 
i; 62 5166 1 ++ 
; 62 5167 1 : The GET_FILE_SPEC macro reads from the input string starting. 
>; 624 5168 1 ! at the character after the keyword CREATE until a character is 
; 625 5169 1 ! found that is not a space, tab, or a zero. If such a character 
> 626 5170 1 i is found before the end of Line is reached, then the position 
; 6¢7 5171 1 ! of the character before is noted for storage of the length of 
> 628 2128 1 ! the file spec string. Then the string is read until a zero 
: O68 5175 1 ! or carriage return character is encountered. The Length 
; 650 5174 1 ' of the string is stored in the previously saved position. 
; 631 5175 1 ‘ Aymely S the address of the file specification is placed in 
; 632 5176 1 ! a new Link of the command orpaaes List by a call to the 
; 633 sier- o ! routine PATSADD_ARG. This address is the address of a counted 
: 634 5178 1 ' string. 
; 635 5179 1 leo 
; 626 M5180 1 GET_FILE_SPEC = 
;. $5 M5181 1 
; 638 M 2186 1 BEGIN 
; 63) M5183 1 
; 640 M5184 1 MAP 
3; 641 5185 1 PARSE_STG_DESC : REF BLOCK C, BYTE]; 
; 642 M5186 1 
; 643 m 5187 1 LOCAL 
> 644 45188 1 CHAR, 
: 645 m 5189 1 COUNT, 
: 646 M5190 1 INPUT_PTR, 
> 647 m 5191 1 TEMP_PTR; 
; 648 M g13¢ 1 
; 649 m 5193 1 INPUT_PTR = CHSPTR (.PARSE_STG_DESC CDSCSA_POINTER]); 
; 650 M5194 1 CHAR = CHSRCHAR (.INPUT_PTR); 
; 651 M5195 1 
; 652 m5196 1 
; 653 M5197 1 +4 
; 654 m 5198 1 ! This loop skips spaces and tabs that delimit the CREATE 
> 655 M5199 1 ! verb and precede the file specification. At the end of 
; 656 M5200 1 ! this loop, the character pointer INPUT_PTR is pointing 
3 €or m 5201 1 ' to the first character of the file specification. 
; 658 M5202 1 cel 
; 659 M5203 1 COUNT = 0; 
; 660 M5204 1 REPEAT 
; 661 M 2502 1 EGIN 
; 662 M5206 1 
; 663 M5207 1 '++ 
; 664 M5208 1 ! The character we recognize as the beginning 
3; 665 m 5209 1 ! of the file specification is the first 
3 606 2 3519 : character after the delimiter of the CREATE verb. 
; 668 4 5312 1 IF .CHAR NEQ ASC_SPACE AND .CHAR NEQ ASC_TAB 
; 669 M5213 1 THEN EXITLOOP 
; 670 m 5214 1 ELSE 
; 671 M $13 1 BEGIN 
3; 6f2 M5216 1 COUNT = .COUNT + 1; 
3; 673 M5217 1 CHAR = CHSA_RCHAR (INPUT_PTR); 
3; 674 M5218 1 END; 
| 
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END; 


44 

' Check if there was no file name specified. 

! If there was no file name, then PATCH wants to return 

: successfully from this action routine, The only reason 

! this macro can contain a ‘'RETURN TRUE" statement, is that 
! MAR_REDUCTN merely returns after executing it. 


iF (.CHAR EQL 0) 
EXITLOOP( TRUE); 


'44 

! The beginning of the file specification has been 
! found. If the delimiter was non-null, then 

' collect the rest of the string. 


if (.COUNT LEQ 0) 
THEN 


BEGIN 
— EQL DIGIT_STR_TOKEN) OR (.TOKEN EQL EOL_TOKEN) 


SIGNAL (PAT$_INVCMD) 
ELSE 


BEGIN 
SIGNAL (PATS_SYNTAX+MSGSK_WARN, 1, LEX_STG_DESC); 
RETURN; 


END 
END; 


PARSE _STG_DESC COSCSW_LENGTH] = .PARSE_STG_DESC CDSCS$W_LENGTH] = .COUNT; 
TEMA PTR = CHSPLUS (.INPUT_PTR, -1); 


2 Pag 
ISKSVMSMASTER: CPATCH.SRCJPATPAR.B32; 1 


REPEAT 
BEGIN 
IF .CHAR EQL 0 
THEN OR .CHAR EQL CARRIAGE_RET 'eeeline always ends in zerott* 
BEGIN 
14 


! Found the end of the file specification. 
! Exit this loop after setting the count 
byte of this counted string. 
if (.COUNT LEQ 0) 

BEGIN 

SIGNAL (PAT$_INVCMD); 


EN 
CH$WCHAR (.COUNT, .TEMP_PTR); 
EXITLOOP 


ELSE 
BEGIN 
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COUNT = .COUNT + 1; 

His = CHSA_RCHAR (INPUT_PTR); 


END; 
'44 
' Now put the address of the file specification into 
! a new Link in the command argument List. 
! Also, increment the address of the parse pty in 
! the parse string descriptor to address the delimiting 
carriage return or null byte. 


PATSADD_ARG (.TEMP_PTR): 
PARSE _STG_DESC EDseéarounre J = .INPUT 
PARSE _STG_DESC 


44 
The macros below manipulate names of data specified in commands. 


'e¢ 

: The TRANSLATE_NAME macro calls the routine PATSTRANS_NAME to. 
! translate a token into a binary value. If the routine fails in 
' the translation, a signal and unwind occurs. 


TRANSLATE NAME (SEMSP) = 
PATSTRANS.NAME (SEMSP, LEX_STG_DESC)%, 


e+ 
} The next macro is called when a complete command has been collected. 


'44 
! The EXECUTE CMD macro calls PATSPERFORM_CMD and returns 
! from PARSE_A_LINE if that routine returns a false value. 


EXECUTE_CMD (SEMSP) = 
IF NOT PATSPERFORM_CMD (SEMSP) 


RETURNZ, 


ee 
The next macros manipulate scope and pathnames. 


'e¢ 

! The REDUCE_PATHNAME macro calls PAT$BUILD_PATH to convert a 

' pathname into an equivalent value. If the conversion fails, 

' then the symbol does not exist, a message is produced, and an 
UNWIND is done. 


REDUCE_PATHNAME (SEMSP) = 
PATSBUILD_PATH (0, PATSGL_SEMAN1 CSEMSP], TRUE)%, 


lee 


CIPATPAR.B32; 


R PTR; 
DSC$WILENGTH] = .PARSE_STG_DESC CDSC$W_LENGTH] = .COUNT; 
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J 1 
PATPAR 16-Sep-1984 00:19:31 VAX=11 Bliss-32_ V4.0-742 P 
v04-000 16-Sep-19 4 19:3352) DISKSVMSMASTER:CPATCH.SRCIPATPAR.B32; 1" 


END2, 


lee 
! The next macro sets the context bit for the keyword ‘‘MODULE"’. 


SET_MODULE BIT = 
PATS$SGL_CONTEXT CMODULE_BIT] = TRUE%, 


ee 
The next macro sets the context bit for the LITERAL qualifier. 


a ngeae 


VEWNM—OOdONOW 


= 


SET_LIT_BIT = 
PATSGL_CONTEXTCLITERAL_BIT] = TRUER, 


789 5333 1 ! The macro SET_SCOPE_BIT turns on the appropriate context 
fe 4 2 ¢ ! ! bit so that a path name will be saved. 
79 M5336 (1 SET_SCOPE BIT = 
79 2 r 3 PATSGL_CONTEXT CSCOPE_BIT] = TRUE%, 
794 8 1 
795 5339 1 +4 
re 2 +9 ! : The next macro sets the context bit indicating the ‘'SET PATCH_AREA'’ command. 
798 5 4 1 ! The macro also tests to see if the address of the patch area descriptor was declared before 
799 5345 1! the /INITIALIZE qualifier (if it was present). If the /INITIALIZE qualifier came first, then 
800 5344 1 | move the initial size value into the second expression location in the Linked argument List, 
ot 2302 : followed by copying the address of the patch area descriptor into the first expression location. 
80 5347 1 
804 M ages 1 SET_PATAREA BIT = 
805 M5349 1 BEGIN 
806 M5350 1 PATSGL_CONTEXT CPAT_AREA_BIT] = TRUE; 
807 M5351 1 IF .PATSGL_HEAD_LST NEQ [PATSGL_TAIL_LST THEN OC 
808 M 2326 1 BEGIN 0% 
809 M5353 1 LIST_ELEM_EXP2 (.PATSGL_HEAD_LST) = .LIST_ELEM_EXP1 (.PATS$GL_HEAD_LST); | 21 
810 m 5354 1 LISTTELEM_EXP1 (.PATSGL_HEAD-LST) = .LISTTELEMEXP1 (.PATSGL_TAIL“LST); FF 
811 m 5355 1 END; FF 
812 5356 1 END%, | FF 
813 5357 1 OC 
814 5358 1 !+4 OC 
815 5359 1 ! The next macro sets the context bit indicating that the /INITIALIZE qualifier Dé 
aie eee? ' , was present in the SET PATCH_AREA command. | ot 
818 2396 1 ! The macro also checks to see if the /Initialize qualifier was specified after Fi 
819 5365 1 ! the patch area descriptor. If this is the case, all we have to do is to copy OC 
820 5364 1 ! the initial size value into the second expression location of the first element oC 
821 5365 1 ! of the Linked argument List. OC 
822 5366 1 !-- FF 
823 5367 1 dé 
824 m 5368 1 SET_INIT_BIT (SEMSP) = | oC 
825 M5369 1 BEGIN FF 
826 m 5370 1 PATSGL_CONTEXT CINIT_PAT_BIT] = TRUE; oC 
827 m 5371 1 PAT$GL-COMQUAL CINITTALIZE_ QUAL] = TRUE; OC 
828 m 5572 IF .PATS$GL_HEAD LST NEQ .PATSGL_TAIL_LST THEN 21 
829 " 2 ; LIST_ELEM_EXP2 (.PATSGL-HEAD-LST) = .LIST_ELEM_EXP1 (.PATSGL_TAIL_LST); | o¢ 
Hf a8 | BEAL 
HE 5 5 1 0' 
8 5378 1 0' 
8 5279 1 0' 
8 5360 1 FI 
8 5381 1 0’ 
8 5 § 1 0 
8 5 1 
8 5384 1 

5385 1 

5386 1 

5387 1 

5388 1 

5389 1 
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846 ! The next two macros set bits indicating what type of ECO command is 
i to be executed. 
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44 

i The macro apt -NOT_ECO_BIT sets a bit to indicate the command 
' was CHECK NOT ECO) i.@., check that the eco level bits 

i are NOT By 


SET_NOT_ECO_BIT (SEMSP) = 
“BEG | 
| 


PVPS 
zzzz 


PATSGL_CONTEXT CSET_NOT_ECO] = TRUE; 
T DEC_OVERS; 


SET_WORD 


SET 
ENDZ, 

6 
861 l++ | 
862 i The macro SET_ECO BIT sets a context bit to indicate the command 
Bed tM was setting ECO bits. 
865 M SET_ECO_ BIT (SEMSP) = 
866 m “BEGIN 
867 4 PATSGL_CONTEXT CSET_ECO] = TRUE; 
868 ” SET_DEC_OVERS; | 
869 ENDZ, 
870 
871 '++¢ 
13 it The next five macros set the align context bits. 

875 M SET_BYTE_BIT = 
a78 PATSGL_CONTEXT CALIGN_BYTE] = TRUE%, 
878 M SET_LONG_BIT = 
143 PAT$GL_CONTEXT CALIGN_LONG] = TRUEZ, 
881 ) SET_PAGE BIT = | 
ane PATSGL_CONTEXT CALIGN_PAGE] = TRUE%, 
884 M SET_QUAD_BIT = 
rH PATSGL_CONTEXT CALIGN_QUAD] = TRUE%, 
BIT 
ATS 


PATSGL_CONTEXT CALIGN_WORD] = TRUE, 


lee 
i The next six macros perform a logical test between the two items 
i and then place TRUE or FALSE on the top ~f the stack. 


EQ_EXPR (SEMSP) = 
PATSGL_SEMAN1 CSEMSP]) = .PATSGL_SEMAN1 CSEMSP] Fok 
-PATSGL_SEMAN1 CSEMSP + PATSK_SPOS_TWOJ%, 


GE_EXPR (SEMSP) = 
PATSGL_SEMAN1 CSEMSP] = .PATSGL_SEMAN1 CSEMSP) G 
-PATS$GL_SEMAN1 ESEMSP + PATSK_SPOS_TWOJ%, 
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1 
of Sep-1984 00:19:31  VAK=11 Bliss-32 V4.0-742 e 20 
14-Sep-1984 12:52:42  DISKSVMSMASTER: (PATCH. SRCJPATPAR. a32:17" «$) 
GT_EXPR (SEMSP 
PATSCL. SEMAN] CSEMSP] = .PATSGL -SEMANT CSEMSP) GTR 
-PATSGL_SEMAN1 CSEMSP + PATSK_SPOS_TwOJ%, 
LE_EXPR (SEMSP) 
PATSGL_SEMAN1 CSEMSP] = .PATSGL_SEMAN1 CSEMSP] 


EQ 
-PAT$GL_SEMAN1 tSEMSP + PAT$K_SPOS_TWOJ%, 


LT_EXPR (SEMSP) 
PATSGL_SEMAN1 [SEMSP] = .PATSGL -SEMANT CSEMSP) LSs 
ATS$GL_SEMAN1 CSEMSP + PATSK_SPOS_TWOJ%, 


NE_EXPR (SEMSP) = 
PATSGL_SEMAN1 C[SEMSP] = .PATSGL_SEMAN1 CSEMSP] NEQ 
.PATSGL_SEMAN1 [SEMSP + PATS$K_SPOS_TwOJ%, 
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v04-000 1228607 382 9953323 DISKSVMSMASTER=LPATCH. SRCJPATPAR.B32; 1° (6) 
3; «919 462 1 !++ 

3 920 465 1 ! This macro collects a HELP topic specification. 

is Ye) 464 1 !-- 

is ly ¢ 465 1 

ie 9 46 1 '4¢ 

3) «924 5467 1 ! The GET_HELP_TOPIC macro reads from the input string starting 

is 925 5468 1 ! at the character after the keyword HELP until a character is 
i: ¥ $ re 4 1 : found that is not a space, tab, or a zero. If such a character 

. | 5470 1 i is found before the end of Line is reached, then the position 

; 928 5471 1 ! of the character is noted for re e in the pointer field of 

: Gey anne 1 ! PATSGL_HELP_LIN CDSCSA_POINTER]. Then the string is read until 
; 930 473 1 ' @ zero or carriage return character is encountered. 

; «931 5474 1 feo 

3; F ; 5475 1 

3; 69S ™ 2078 1 GET_HELP_TOPIC = 

; 934 M5477 1 

3; 9a M5478 1 BEGIN 

; 936 m 5479 #1 

; 937 m™ 5480 1 MAP 

; 938 M5481 1 PARSE_STG_DESC : REF BLOCK C, BYTE]; 

; 939 mM eT 1 

; 940 Mm 54835 1 LOCAL 

; 94) M5484 1 HELP_CHAR 

: 94 m 5485 1 HELP_COUNT, 

; 9% Mm 5486 1 HELP~INPUT_PTR; 

> 944 Mm 5487 1 

; 945 m 5488 1 HELP_INPUT_PTR = CHSPTR (.PARSE_STG_DESC CDSCSA_POINTER]); 
> 946 m 5489 1 HELP_CHAR = CHSRCHAR (.HELP_INPOT_PTR); 

: 947 M5490 1 

; 948 m 5491 1 

; 949 M eS 1 ‘++ 

; 950 M5493 1 ! This loop skips spaces and tabs that delimit the HELP 

; 951 M5494 3 ! verb and precede the topic specification. At the end of — 
; 95 M5495 1 ! this loop, the character pointer HELP_INPUT_PTR is pointing 
; + M5496 1 ! to the first character of the topic specification. 

; 954 M5497 1 l<< 

: 995 m 5498 1 

; 9 M5499 1 HELP_COUNT = 0; 

; 957 m 5500 1 REPEAT 

s 938 m 5501 1 

; wa " 2208 1 

; 960 m 5503 1 '++ 

; 961 m 5504 1 ! The character we recognize as the beginning 

3 966 M 2202 1 ! of the topic specification is the first 

: 96 m 5506 1 ' character after the delimiter of the HELP verb. 
> 964 m 5507 1 {oo 

; 6965 m 5508 1 

3; 966 m 5509 1 IF .HELP_CHAR NEQ ASC_SPACe AND .HELP_CHAR NEQ ASC_TAB 
; 967 M5510 1 THEN EXITLOOP 

: 968 M 221 1 ELSE 

; 969 M 216 1 BEGIN 

; 970 m 55135 1 HELP_COUNT = .HELP_COUNT + 1; 

3; 971 m 5514 1 HELP-CHAR = CHSA_RCHAR (HELP_INPUT_PTR); 

3 92 m5515 1 ND; 

; «973 m 5516 1 END; 

3 «974 m 5517 1 

; «975 m 5518 1 '+¢ 
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| 
| V04-000 132338-1 382 9:30 DISKSVMSMASTER:CPATCH.SRCIPATPAR.B32;1> (6) 
E 976 m5519 1 ' Check if there was no HELP topic specified. 
ls 977 M 22 0 1 ! If there was no topic, then PATCH wants to return 
i; 6978 m 5521 1 ! successfully from this action routine. The only reason 
is 97 M 55 § 1 : this macro “an contain a ‘RETURN TRUE" statement, is that 
'; 980 mM 55 1 ! MAR_REDUCTN merely returns after executing it. 
> 981 M5524 1 ! Stated another way... 
is 98 M5525 1 : We will be leaving the current parse string pointing 
is 98 M5526 1 ! to the end of the Line, hence the EOL token is going to 
3 984 M5527 1 ! cause us to call the real action routine, which can deal 
; «#6985 M5528 1 i with not having any topic specified on the command Line. 
; 986 M5529 1 ;o- 
; «987 ™ 5530 1 
; 988 m 5531 1 IF (.HELP_CHAR EQL 0) 'eexline always ends in zero*** 
i; 989 M 2238 1 TH 
: 990 M5533 1 EXITLOOP( TRUE); 
3; PI M5534 1 
; 99 M5535 1 Loo 
; M5536 1 ! With the HELP topic now in hand, we now reduce the remaining number of 
> 994 M5537 1 ! characters in the peree spats Pe Don't forget to set the global pointer 
; 995 M5538 1 ! PAT$GL_HELP_LIN CDSCSA_POINTER] to the beginning of the topic string. 
: 996 M5539 1 leo 
s Wr M5540 1 
; 998 M5541 1 PARSE _STG_DESC COSC$W_LENGTH] = .PARSE_ STG DESC CDOSC$W_LENGTH] - .HELP_COUNT; 
; 999 M5542 1 PAT$GC_HECP_LIN COSCS$A_POINTER] = .HELP_INPUT_PTR; 
: 1000 M5543 1 
; 1001 M5544 1 ++ ; : 
3; 1002 m 5545 1 ! Now we will busy ourselves with eg out the parser... 
; 1003 M5546 1 : The reason for this action, is to allow the LBRSOUTPUT_HELP routine 
; 1004 M5547 1 ! to do its own ~ of the remainder of the command string. 
; 1005 M5548 1 ! Further, the parser doesn't quit easily. Sooo, we kinda force it to 
; 1006 M5549 1 ! execute the command by ove es oe the end of Line condition. ay gs 
; 1007 m 5550 1 ; This is done by counting the number of characters remaining in the 
: 1008 M5551 1 ! parse string (between the eogrenins character of the pepe string and the 
; 1009 M 2226 1 ! end of Line mark) then reducing the parse string count by that amount. 
; 1010 m 5553 1 ! We also at this time update the length portion of the global length 
3 1011 m 5554 1 | PAT$GL_HELP_LIN COSCS$W_LENGTHJ. 
; 1012 M5555 1 leo 
3; 1015 M5556 1 
3 1014 m 5557 1 HELP_COUNT = 0; 
3 1015 m 5558 1 REPEAT 
; 1016 M5559 1 GIN 
; 1017 M5560 1 - L 
: 1018 Mm 5561 1 IF .HELP_CHAR EQL 0 'eexline always ends in zerot** 
; 1019 M 2266 1 THEN 
: 1020 M5563 1 EXITLOOP 
: 1021 M5564 1 ELSE 
3 1066 m 5565 1 BEGIN 
; 102 M5566 1 HELP_COUNT = .HELP_COUNT + 1; 
+ 1024 m 5567 1 HELP~CHAR = CHSA_RCHAR (HELP_INPUT_PTR); 
3 1025 M5508 1 END; 
: 10¢8 M5569 1 END; 
: 1027 m 5570 1 ++ : 
; 1028 m 5571 1 ! Now set the fongtt of the al» topic, into the global 
: 1089 m d57e 1 i descriptor field PATSGL_HELP_LIN LDSC$W_LENGTH]. | 
; 1030 m 55735 1 ' Also, increment the address of the parse Steins in. 
; 1031 M5574 1 ! the parse string descriptor to address the delimiting 
3; 1032 m 5575 1 ' carriage return or null byte. 
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PTR: 
Esc [DSC$W_LENGTH] - .HELP_COUNT; 
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H 19s) 2287 : GLOBAL ROUTINE PATSPARS_A_LINE (PARSE_STG_DESC) : NOVALUE = 

; 104 5585 1 !+¢ 

> 1044 5586 1 ! FUNCTIONAL DESCRIPTION: 

; 1045 5587 1! 

3 ine dees : } Parses a Line of PATCH commands and performs associated action routines. 

: 1048 5590 1 ! CALLING SEQUENCE: 

: 1049 9991 1! 

; 1050 2282 1! PATSPARS_A_LINE () 

; 1051 5995 1! 

; 1926 5594 1 ! INPUTS: 

; 105 5595 1! 

; 1054 5596 1! PARSE_STG_DESC = string descriptor of the buffer that holds 

: 1055 5997 1! the input string. 

; 1056 5598 1! 

: 1057 5599 1 ! IMPLICIT INPUTS: 

: 1058 5600 1! 

; 1059 5601 1! the parsing tables 

; 1060 5602 1! 

; 1061 5603 1 ! OUTPUTS: 

: 1062 5604 1! 

; 1063 5605 1! No value returned. 

3: 1064 5606 1! Outputs are the effects of the action routines called. 

; 1065 5607 1! 

3; 1066 5608 1 ! IMPLICIT OUTPUTS: 

3: 1067 5609 1! 

: 1068 5610 1! none 

3 1069 5611 1! 

; 1070 5612 1 ! ROUTINE VALUE: 

; 1071 5615 1! 

: 1072 5614 1! novalue 

: 1073 5615 1! 

3; 1074 5616 1 ! SIDE EFFECTS: 

; 1075 5617 1! 

3; 1076 5618 1! none 

: 1077 5619 1 !-- 

: 1078 5620 2 BEGIN 

; 1079 5621 2 

; 1080 5622 2 MAP 

: 1081 56235 2 PARSE_STG_DESC : REF BLOCKL,BYTEI; 

; 1082 5624 2 

3; 1083 5625 2 LOCAL : 

> 1084 5626 2 ACTION_TO_TAKE ' Action from PAT_ACT_TABLE 
> 1085 5627 2 CUR_PARSE-STATE, i The state of thé parse machine 
; 1086 5628 § ! Control variable 

; 1087 266? LEXEME_ADDR: VECTOR CCHS_PER_LEXEME, BYTE], ! Buffer for string lexeme 
; 1088 5630 2 LAHEAD_ADDR: VECTOR CCHS_PER LEXEME, BYTEJ, ' Buffer for a lookahead 

3; 1089 5631 LEX_STG_DESC: BLOCK (12, BYT " ' String descriptor for lexemes 
: 1090 3632 LAHEAD STG DESC: BLOCK (8, BYTE), i Lookahead for one lexeme 
; 1091 563 LAST_STG_DE LOCK(8,BYTE), ' Previous place in PARSE_STG_DESC | 
3; 1092 5634 MATCRA_TRANSIT, ' Boolean, TRUE if matching transition is fo 
: 1093 5635 NEXT_TOKEN : VOLATILE, ' Saves next token 

z 1094 5636 a ' Saves state 

: 1095 5637 OLD- TOKEN i Saved token 

; 1096 5638 PARSE_MORE, ' Boolean, says whether to parse more 
; 1097 5639 PARSE-STACK: VECTOR CMAX_STACK_PTR * PATSK_STELM_SIZ, WORD], ! Parse state stack 
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TRUE if reduction was last action 

Boolean, TRUE if next symbol needs to be s 
Stack INDEX 

holds latest token 

Transition code from PAT_STATE_TABLE 


REDUCE_WAS_LAST, 
SCAN_NEXT_SYM, 
STACK POINTER, 


D 2 
16-Sep-1984 00:19:31 VAX-11 Bliss-32 V4.0-742 
14-Sep-1984 12:52:42 DI 
! 
i 
TOKE i 
TRANSIT_CODE; i 
LABEL § 
MATCH_LOOP; 


le 
Initialize control variables. Get a token from the input string. 


OLD_ TOKEN = 

REDOCE_WAS_LAST = FALSE; 

STACK_POINTER = 0; 

QUOTE-INDIC = FALSE; 

CHSFICL (0,DSCSC_S_BLN,PATSGL_HELP_LIN) ; 
++ 


; Initialize the look-ahead string descriptor. 


LEX_STG_DESC CDSC$W_LENGTH) = 0; 

LEXSTG-DESC CDSCSWMAXLEN] = CHS _PER_LEXEME; 
LEX“STG-DESC CDSCSA~POINTER] = LEREME ADDR; 
LAHEAD_STG_DESC CDSCS$A_POINTER] = LAHEAD_ADDR; 


'o4 

! Maintain a ‘last’ string descriptor which is always what ‘PARSE_STG_DESC’ 
! was before the last time it was changed. 

LAST_STG_DESCCDSC$W_LENGTH) = .PARSE_ STG DESCCDSC$W_LENGTH); 
LAST_STG_DESCCDSCSA_POINTER) = .PARSE_STG_DESCCDSC$A_POINTER); 


e+ 
Get the first token from the command Line. 


TOKEN = PATSGET_A_TOKEN (.PARSE_STG_DESC, LEX_STG_DESC); 


lee 

! Initialize the parse control variables. 
CUR_PARSE_STATE = 0; 

SCAR_NEXT~SYM = TRUE; 


lee 
! This is the main loop of the parser. It continues 
until the variable ‘PARSE_MORE’’ has a value of FALSE. 
DO 

BEGIN 
J = .CUR_PARSE_STATE; 


ee 
! The following loop searches for a matching token 
! and exits when a match is found, 
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DO 
MATCH_LOOP: BEGIN 
MATCH_TRANSIT = FALSE; 

TRANSTT_CODE = .PAT_STATE_TABLE [.UJ; 


! See whether this transit code is an else code, 

! and at the same time the token is a keyword 

! token. In these circumstances, try passing 

i through the loop again with the pretense 

! that the token is a ALPHA_STR_TOKEN. The current 

: token and state must be saved so that | 

! if ALPHA_STR_TOKEN does not make a valid sentence, 
then the effect of the else code can be reestablished. 


LF _(-TRANSIT_CODE EQL ELSE_CODE) AND (.TOKEN LEQ KEYWORD_RANGE) 


———§ ~QOODKKOOCOCOOWOO 
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BEGIN 
OLD_TOKEN = . TOKEN; 


LD J @ «ds 

J =". CUR_PARSE_STATE; 
TOKEN = ALPHA_STR_TOKEN; 
LEAVE MATCH_LOOP; 


e¢ 
' Now allow for restoring the original token 
! in the case that the newly inserted ALPHA_STR_TOKEN 

brought no better results. 

IF (. TRANSIT CODE EQL ELSE_CODE) AND (. TOKEN EQL ALPHA_STR_TOKEN) 
“cid AND T.OLD_TCKEN NEG 0) 


BEGIN 

TOKEN = .OLD_TOKEN; 
J = .OL : 
OLD_TOKER = 0; 

END; 
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lee 
! No special handling here. Just compare the 
token and the transit code. 


IF (.TRANSIT_CODE EQL . TOKEN) OR 
rnesg” TRANS! T=CODE EQL ELSE_CODE) 


BEGIN 
lee 
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0 : 

08 ! A match has been found, so the lexical string can be 
soe ' read or reduced. 
206 MATCH TRANSIT = TRUE; 

207 ACTION TO_TAKE = .PAT ACT TABLE [.J); 

$08 IF (.ACTIGN_TO_TAKE NEQ ERROR_CODE) 

09 THEN 

210 BEGIN 

211 IF (.ACTION_TO_TAKE GIR = SCAN_CODE) 
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THEN 
te 
! Nothing else to scan. Perform the 


' associated action routine for this 
lexical entity. 


BEGIN 
PARSE_STACK C.STACK_POINTER] = .CUR_PARSE_STATE; 


'e¢ 
} Put the token on the top of the parse stack 


if NOT .REDUCE_WAS_LAST 

he PATS$GL_SEMAN1 E STACK_POINTER] = . TOKEN; 
IF (.ACTION_TO_TAKE GEQ 0) 
THEN 

'e¢ 

} This is a read state. 

BEGIN 

R_PARSE_STATE 


CU = .ACTI 
REDOCE_WAS_LAST = FALSE 
§ GEQ 


ON_TO_TAKE; 
IF (.STACK“POINTER ( 
THEN 


MAX_STACK_PTR * PATSK_STELM_2IZ)) 


BEGIN 
SIGNAL (PAT$_PARSEERR) 
ELSE STACK_POINTER = .STACK_POINTER + PATS$K_SPOS_ONE; 
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4 le4 
24 ' Now input the next token if more 
st reading is necessary. 
24 if .SCAN_NEXT_SYM 
24 790 THEN 
24 791 BEGIN 
2 B Ag ZEROCOR(.LAHEAD_STG_DESCCDSCS$A_POINTER], 

251 79 -LAHEAD_STG_DESCCDSC$Q_MAXLENJ/4)); 

$26 794 LAHEAD_STG DESC [CDSCSW_LENGTH) = 

25 795 .LEX_STG_DESC [COSC$W_LENGTH] 

254 796 CHSMOVE (.LER_STG DESC CDSC$Q_LENGTHI, 

255 797 -LEX_STG_BESC Sate POINTER 

256 798 -LAHEAD _STG_DESC CDSCSA_POINTER)); 

257 799 LAST eG DES DSL aN LENGTH) = .PARSE_STG_DESCCDSCS$W_LENGTH]; 
258 800 LAST-STG-DESCCDOSC$A-POINTER] = .PARSE_STG_DESCCDSCSA_POINTER 
259 801 TOKEN = PATSGET_A_TOKEN (.PARSE_STG_DESC, LEX_STG_DESC); 
260 Hh) END 

$0! 80 ELSE 

o¢ 804 '++ 

26 805 ' If no more scanning is needed, 

264 806 ! put the next token in the 

265 807 ' variable ‘TOKEN’. 

266 43 BEGIN 

267 09 SCAN_NEXT SYM = TRUE; 

268 810 TOKEN = .REXT_TOKEN; 
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lee 


: This is the end of the read. 


ELSE 


lee 
' This is a reduction. 


BEGIN 
MN che ae oa LEQ = SCAN_CODE) 


lee 
' This is a noscan reduction, 
' which takes an extra stack pop. 


POON 


BEGIN 
ACTION TO_TAKE = .ACTION_TO_TAKE + SCAN_CODE; 
SCAN_NEXT SYM = FALSE; 

STACR_POINTER = .STACK_POINTER = PATSK_SPOS_ONE; 
weXT TOKEN = TOKEN; 


ACTION TO_TAKE = = .ACTION TO 
STACK_POINTER = .STACK_POINTE 
(.PAT_POP_TABLE [.ACT 
CUR_PARSE_STATE = ee TAC 
TOKEN = .PAT_LHS_TABLE CVACTI 
REDUCE_WAS_LAST = TRUE; 


lee 
In here go the semantic actions for each reduction. 


if NOT MAR_REDUCTN (.PAT_SEM_TABLE [.ACTION_TO_TAKE), 
. STACK_POINTER 
THEN SELECTONE .PAT_SEM_TABLE C.ACTION_TO_TAKE] OF 


PATGETHLP): GET_HELP_ TOPIC; 

PATDEFNAM]: SAVE_NAME (.STACK_POINTER); 

PATGETFILJ: GET FILE SPEC; 

PATOLDPMTJ: IF Rot PATSPROMPT_READ(OLDPMT_TOKEN, -PARSE_— 
: NOT PATSPROMPT READ(NEWPMT TOKEN, .PARSE 


We Dare Ot tat 


_TO_TAKE] * PATSK_STELM_SIZ); 
CTSTACK_POINTERJ; 
_TO_TAKE]; 
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PATEXPPMT): “TOKEN. 
PATECOPMT): ECOPMT TOKEN, 
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"PARSE 
PATQUOTEC}: ; 

Pp 
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PARSE_ 


PATSAVMDLJ: 
PATSAVPAT J: 
PATTRNNAM]: 
PATUQUNAM]: 
OTHERWISE J: 
TES; 


0 Cd Od Od Cd CD CD CD CD Cd Cd OD OD OS Od OD OD OD OD OD OD CD OD OD Od OD CD CD OD CD OD OD OD OD OD OD CD CD CD Cd CD CD CD OD CD CD CD CD CD CD 


QOmONAMNII I 


st, 0, TRUE): 
INTER); 
NTER) 


o- 
=z 
oO 
- 
Mm 
~~ 
“” 
= zDD 
wv mm 
oO 
am 
1 Krona -«-- 
“ 


ROO 
NOUS WMO OONOUES WN 


END; 


ee ee ee ee ee ee ee ee ee LL) 
tw wal al tal eal Mal al ah al ah Ab Ab Ab Ah Ab Ab Ab Ab db db Ab db db db db db db Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab db Ab Ab Ab db Ab Ab dh dh db db ab Ab ab Ab db ah ah Al 


Be Se Oe Oe Be Be Oe Be Se Se Oe Se Se Se Se Se Se Se Be Se Se Ge Fe Se FHM Se Se Oe Se Se Se FH Se Se Se Se Be Se Se Se Se Se Se Se Se 8 Se Se Se Se Se Se Ge SH Se ae 


OO WWW SSS OOOO OOO NN OO 


AANA AAN AAA AAA 
MORRO tt to 
MEW 0 OOBNOUS WN —OOON 


GooD 0000 
AAXAD 


END 


Re Be Re Re Be Oe Oe Oe Oe Be Be Oe Be Be Se Be Se Se Oe Be SH Se SH Se Oe Se Se Oe Be Oe we SH Se Se Se Se SH Se Se oe Se SH Se Se Se Se Se Be Se we Oe OHH SH Be we oe 


—_——— > 


H 2 
PATPAR 16-Sep-1984 19:31 VA 3 4.0-74 
V04-000 1exsee- 1382 P3:k3:2 Hi zy ; 


-0- Page $9 
:CPATCH.SRCJPATPAR.B32; 1 (7) 


'o¢ 

: This is the ERROR_CODE processin 
! It is the else portion of the (. 
EQL ERROR_CODE) IF statement. 


ELSE 


Ret iON. 10. TAKE 


BEGIN 
If (TOKEN NEQ DIGIT_STR_TOKEN) 


THE 
BEGIN 
ee 
' Truncate the opring to 10 characters 
; unless it is already shorter than 10. 
F 4 RAST S16 _DESCEDSCOU_LEMSTHD GTR 10) 


LAST_STG_DESCCDSCS$W_LENGTH) = 10; 
SIGNAL (PATS_SYNTAX+MSGS$K_WARN, 1, LAST_STG_DESC); 


ND; 
IF (TOKEN NEQ EOL_TOKEN) 

SIGNAL (PAT$_INVCMD) 

SIGNAL (PATS_INVTOKEN+MSGS$K_WARN, 1, LEX_STG_DESC); 
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ELSE 


END 
END 


lee 

' This is the ELSE fers ies of the IF statement 
! (,TRANSIT_CODE EQL .TOKEN) OR 

: (,TRANSITICODE EQL ELSE_CODE) 

if (.TRANSIT_CODE EQL CONT cove) 

THEN J = .PAT_ACT_TABLE C.J 


ELSE 
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6 END ! End of MATCH_LOOP 
6 UNTIL .MATCH_TRANSIT 
6 END 
lee 
366 ' Continue processing until an action routine sets this 
red flag to false. 
369 WHILE .PARSE_MORE; 
370 END; 


-TITLE PATPAR 
-IDENT \V04-000\ 
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| PAT_ACT_TABLE== 
| PAT~POP"TABLE== 
PAT_LHS_TABLE== 
PATSEM~TABLE == 
~ EXTRN 
“EXTRN 
“EXTRN 
“EXTRN 
“EXTRN 
~EXTRN 
“EXTRN 
~EXTRN 
~EXTRN 
*EXTRN 
~EXTRN 
~EXTRN 
~EXTRN 
~EXTRN 
~ WEAK 
-PSECT 
OFFC 00000 LENTRY 
SE CéFF30 «CE. «900002 MOVAB 
ic AE 7€ 00009 CLRO 
58 D4 OO00A CLRL 
00000000" &F D4 0000¢C CRL 
08 00 6E 00 2¢ 00012 MOVCS 
000000006 EF ~*~ 00017 
BC AD B4 000IC CLRW 
AD 19 BO OOO1F MOV 
co AD E4 AD 9E 00023 MOVAB 
B8 AD (8 AD 9E 00098 MOVAB 
SA 04 AC DO 0900 MOVL 
AE 6A BO 00031 MOV 
18 AE 04 AA 9E 00035 MOVAB 
B AD 18 BE DO OO03A MOVL 
BC AD 9F O003F PUSHAB 
SA DD 00042 PUSHL 
000000006 EF 02 FB 00044 CALLS 
5B 50 DO 0004B MOVL 
10 AE 01 70 004 MOvG 
0c AE 01 v0 bp MOVL 
08 AE D4 00056 CLRL 
59 14 AE DO 00059 1$: MOVE 
8 AE 4 00050 26: CLRL 
04 AE 00000000"EFKS $¢ 0060 MOVZWL 
$0 D4 00069 CLRL 
00002700 8F 04 AE D1 0006 CMPL 
19 12 0007 BNEG 
50 D6 0007 INCL 
31 8B D1 00077 CMPL 
12 14 OO07A BGTR 
20 AE 58 D0 0007C MOVL 
E $9 DO 00080 MOVE 
9 16 AE DO 00083 MOVL 
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PATSBUICD. PATH PATSFING MODULE 
PATSFREEZ, PATSGET 
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PATSINIT_MODE 6 PATSPERF ORM. CMD 
PATSPROMPT JR READ 
PATS$SET ~CORQUAL 
PATSSET_MOD 
PATS$SET “OVERS. | BATSTRANS _NAME 
PATS$GL_REL 
PATSGL_FLAGS, PAT$GB_MOD_PTR 
PATSGL~COMQUAL PATS$SGL_CONTEXT 
PATSGL_HEAD_LSf 
PAT$GL_TAIL_LST 
PATSGL_ ~SEMART. PAT$GL_SEMAN2 
ACCESS_ CHECK 


-PATSCODE ,NOWRT ,2 
PATSPARS_A_LINE, Save R2,R3,R4,R5,R6,R7,R8,-; 


Quor E-INDIC 
#0, (SP), #0, #8, PATSGL_HELP_LIN 


LEX_STG DESC 
#257 LER STG_DESC+8 
LEXEME _ ADR’ “LEX _STG_DESC+4 
LAHEAD- ADDR LAHEAD . STG_DESC+4 
PARSE_STG DESC, R107 
LAST STG_ DESC 
4(R105, 24 


24 ( 
@24(SPS, LAST_STG_DESC+4 
LEX. STG. DESC 

#2, PATSGET_A_TOKEN 

RO. TO 

HE SCAN NEXT SYM 


PARSE _MORE 
matcn TRANSIT 
CUR PARSE STATE, J 
PAT. STATE_TABLECLJJ, TRANSIT_CODE 


TRANSIT CODE, #9997 


Own 


RO 

TOKEN, #49 

a OLD_TOKEN 
OLb J 

tor PARSE _STATE, J 
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58 47 SF A 00087 MOVZBL #71, TOKEN ; 5718 
cia p: ‘.. se B's i 
00000047 += BF 58 D1 00091 CMPL POKEN’ #71 : 
OF 12 00098 BNEQ 4$ : 
20 AE D5 OO09A TSTL  OLD_TOKEN + 5728 
0A 13 00090 BEQL «6s«4$ : 
5B 20 AE 80 0009F MOVL § OLD_TOKEN, TOKEN + 5731 
59 6E DO 000A3 MOVL  OLDTJ, J + 5732 
20 AE D4 0006 CLRL OLD “T6x EN + 5733 
5B 04 AE D1 O00A9 4$: CMPL TRANSIT _CODE, TOKEN : 5740 
06 13 BOOAD BEQL 5$ : 
03 : OOAF BLBS RO, 5$ + 5741 
0308 31 00082 BRW 696 : 
08 AE 01 06 00085 5$: MOVL MATCH_ TRANSIT + 5748 
57 00000000'EF49 32 00089 CVTWL PATA ACT_TABLELJ], ACTION_TO_TAKE 3 5749 
0000270F F 57 01 000C1 CMPL  ACTION_TO_TAKE, #9999 : 5750. 
03 12 000¢8 BNE 6 : 
0372 31 OOOCA BRW 64$ : 
FFFFD8F2 8F 57 Di OQOOCD 6$: CMPL ACTION_TO_TAKE, #-9998 ; 5753. 
12 15 00004 BLEO : 
28 AE48 14 AE BO 00006 MOVW CUR Aegis STATE, PARSE_STACKCSTACK_POINTER] ; 5761 
1¢ AE €8 000DC BLBS §§ REDOCE_WAS_LA : 576 
00000000GEF 48 5B DO OO0EO MOVL ‘TOKEN, “Parsct SEMANICSTACK_POINTER] : 576 
57 D5 OOOES 7$: TSTL © ACTION_TO_TAKE : 577 
64 19 OOOEA BLSS  12$ : 
14 AE 57 DO OOOEC MOVL ACTION_ TAKE, CUR_PARSE_STATE : $77 
1¢ AE D4 000FO CLRL REDUCE ~WAS_LAST : 577 
28 58 D1 000F3 CMPL —s STACK TBOINTER: #40 : 5778. 
OF 19 000F6 BLSS F | 
006D8142 8F DD 000F8 PUSHL #7176514 ; 5781 
000000006 00 01 FB OOOFE CALLS #1, LIB$SIGNAL : 
03 11 00105 BRB 9$° : 578 
58 02 C¢O 00107 8$: ADDL2 #2, STACK_POINTER : 578 
37 10 AE E9 0010A 9$: BLBC  SCAN_NEXT~SYM, 10$ : 578 
50 BC AD 3C 0010E MOVZWL LAHERD | STG_DESC+8, RO : 579 
50 04 C6 00112 DIVL2 Ho, R ; 
50 04 ¢4 00115 MULL2 RO ; 
50 00 6E 00 2c 00118 MOVC5 70° (SP), #0, RO, @LAHEAD_STG_DESC+4 ; 
B4 AD BC AD BO 0011F MOVW _LAHEAD_STG DESC +8. LAHEAD $1G_DESC : 5795 
88 BD CO BD BC AD 28 00124 MOVC3 LEX STG_DESC, _STG_DESC+4> : 5798 
SE AAC AD- si O bests 3 : 
7 OA 6A BO 00128 MOVW a “STG DESC : §799 
BO AD 18 BE DO OO1eF MOVL a@24(SP), MAST Tere. DESC+4 : 5800 
BC AD 9F 00134 PUSHAB LEX_STG.DESC : 5801 | 
SA DD 00137 PUSHL R10 ; 
000000006 EF 02 FB 00139 CALLS #2, PATSGET_A_TOKEN ; 
58 50 00 00140 MOVL RO, TOKE F 
08 11 0014 BRB 11§ : 578 
10 AE 01 D0 00145 10$:  MOVL #1, SCAN_NEXT_SYM : 580 
5B 78 AE 9 00149 MOVL NEXT_TOKEN, TOKEN : 581 
0356 3100140 11$: BRW 71$ ~ : 577 
FFFFD8F2 © 8F 57 0100150 12$: CMPL ACTION TO_TAKE, #-9998 ; 582 
OF 14 00157 BGIR 13$ ; 
57 270 C7 9€ 00159 MOVAB 9998(R7), ACTION_TO_TAKE ; 582 | 
10 AE D4 0015E CLRL  SCAN_NEXT_SYM : 5830 | 
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16-Sep-1984 19:31 VAX-11 Bliss-32 V4.0-742 Page 37 
12-900- 1h 90:13:25 DISKSVMSMASTER: LPATCH. SRCIPATPAR.B32:1> rei 
gs 13 00232 BEQL 3 ; 
009A 31 00234 BRw 28 : 
52 18 BE b0 0237 23$: MOVL &24(SP), INPUT_PTR : 
5 62 9A 00238 MOVZBL (INPUT_PTR), CRAR : 
24 D4 00 : CLRL COUN : 
20 5 D1 00240 24$: CMPL SHAR. #32 ; 
05 13 00 43 BEQL 5$ : 
09 55 (Di 0024 CMPL CHAR, "9 : 
09 12 00248 BNEQ 6$ : 
4 D6 002A 258 INCL COUNT : 
52 D6 0024C INCL INPUT_PTR : 
55 62 9A 00 4E MOVZBL (INPUT_PTR), CHAR : 
ED 11 00257 24 : 
55 05 00253 268: TSTL CHAR : 
03 12 00255 BNEG ers : 
0253 31 00257 BRW 2 : 
54 D5 0025 278 TSTL COUNT : 
34 14 0025¢ BGTR 30$ ; 
00000048 =&F 5B 1 00255 CMPL ‘TOKEN, #72 : 
09 13 0026 BEQL 28$ ; 
00000063 = 8F 5B D1 00267 CMPL TOKEN, #99 : 
OF 12 0026 BNEQ 29% : 
QO6D80DA BF DD 00270 288: PUSHL #7176410 : 
000000006 00 01 FB 00276 CALLS #1, LIBS$SIGNAL : 
13 11 0027D BRB 30$ ; 
BC AD 9F OO27F 298: PUSHAB LEX_STG_DESC ; 
01 DD 00282 PUSHL #1 : 
006D82A8 8F DD 00284 PUSHL #7176872 : 
000000006 00 03 FB O028A CALLS #3, LIBSSIGNAL : 
04 00291 RET 3 
6A 54 A2 00292 308: SUBW2 COUNT, (R10) : 
53 FF A2 OE 00295 MOVAB -1(R25, TEMP_PTR : 
54 D4 00299 CLRL «COUNT : 
55 D5 00298 31$: TSTL CHAR : 
16 12 0029D BNEQ 33 : 
54 D5 0029F TSTL COUNT : 
Op 14 002A1 BGTR 32 F 
Q06D80DA 8F DD 002A3 PUSHL #7176410 : 
000000006 00 01 FB 002A9 CALLS #1, LIBSSIGNAL ; 
63 54 90 00280 328:  MOVB COUNT, (TEMP_PTR) : 
09 11 00283 BRB 4$ ; 
54 D6 00285 338: INCL COU ; 
32 D6 00287 INCL INPUT_PTR : 
55 62 9A 99 B9 MOVZBL (INPUT_PTR), CHAR ; 
bb 11 0028¢ BRB 31$ ; 
53 DD OOCBE 348: PUSHL TEMP_PTR : 
000000006 EF 01 FB 002C0 CALLS #1, PATSADD_ARG ; 
18 BE 52 dO 002C7 MOVL INPUT_PTR, 324(SP) : 
6A 54 A2 002CB SUBW2 COUNT? (R10) : 
0108 31 O2cE 358: BRw 71$ > 5847 
29 53 91 00201 368: CMPB R3 #41 : 5852 
08 12 00204 BNEQ 37$ ; 
SA pp 0 D6 PUSHL 810 : 
7E 58 «6BF OSA 0000 MOVZBL #91, -«SP) : 
F 11 002DC BRB Aes ; 
34 3 91 00 DE 37$: CMPB RS, #52 > 5853 
08 12 O02E BNEQ 386 ; 
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| PATPAR bese -1984 00:19:31 VAX-11 Bliss-32 V4.0-742 Page 39 PAI 
| v04-000 12-8 08- 1 3be 90:33:23 DISKSVMSMASTER:CPATCH, SRCIPATPAR.B32: 1" rs vo 
50 9A 003A3 MOVZBL (TEMP_PTR), RO ; : 
D7 0 ae DECL = R : : 
11 A BRB 528 ; : 
50 DO OO3AA 518: MOVL #3, RO : : 
54 1 re 0 AD 52$: MNEGL #1. INDEX : : 
7 B BRB 54§ : ; 
24 AEG 01 A44 29 0382 53$: MOVB  1(INDEX)CTEMP_PTR], VALUECINDEX) : t 
F5 54 50 F 3 BS 54$: AOBLEQ RO, INDEX, 538 : ; 
01 Al 62 91 00380 CMPB (TEMP _PTRS, 1(R1) : ; 
OD 18 003¢1 BLEQU 55 : ; 
00608033 8F DD 00 C3 PUSHL #7176243 : ; 
000000006 09 01 FB b05¢ CALLS #1, LIBSSIGNAL : : 
00000000GEF4 24 AE D DO 55$: MOVL VALUE, PATSGL_SEMANICSTACK_PO NTER] : F 
18 BE 5 b0 00309 56$:  MOVL INPUT_PTR, a@2%(SP) : : 
50 6A 3C 00300 MOVZ2WL (R10)> RO : ; 
50 55 Cé 003E SUBL ¢ COUNT, RO : ; 
6A 50 01 A3 OO3E SUBW3 «#1, RO, (R10) : ; 
54 11 O03E BRB 63$ + 5847 ; 
17 53 91 O03E9 578: CMPBR3, #23 : 5859 ; 
16 12 OO3EC BNEQ 58$ : ; 
01 DD OO3EE PUSHL #1 : ; 
BC AD 9F 003F0 PUSHAB LEX_STG_DESC : ; 
00000000G_ EF 02 FB 003F CALLS #2, PATSFIND_ MODULE 3 3 
OOO00000GEF 48 50 DO OO3FA MOVL RO, PATSGL_SEMANICSTACK_POINTER] : 5 
28 11 00402 BRB ? : F 
23 53 91 00404 58S: CMPB RS, #35 : 5860 
09 12 00407 BNEQ 59% : 
01 DD 00409 PUSHL #1 : 
7E D4 00408 CLRL. = (SP) : 
BC AD 9F 0040D PUSHAB LEX_STG_DESC F 
10 11 00410 BRB ; | 
26 53 91 00412 59$: CMPB RS, #38 > 5861 
14 12 0041 BNEQ 618 ; 
01 DD 00417 PUSHL #1 ; 
QOO00000GEF48 DF 00419 PUSHAL PATSGL_SEMANICSTACK_POINTER] : 
7E D4 00420 CLRL = = (SP) : 
000000006 EF 03 FB 00422 608: CALLS #3, PATSBUILD_PATH ; 
28 11 00429 BRB 71$ ; 
32 53 91 00428 618: CMPB eR, #50 : 5862 
01 13 0042€ BEQL 62% : 
04 00430 RET : 
BC AD 9F 00431 62$: PUSHAB LEX_STG_DESC : 
58 DD 004 PUSHL STACK POINTER : 
000000006 _ EF 0¢ FB 04 CALLS #2, PATSTRANS_NAME : 
67 11 00430 63$: BRB ; 
00000048 = &F 5B D1 004 F 64$: CMPL TOKEN, #72 : 5876 
ic 13 0446 BEQL F 
OA 7c «AE OBI D044 CMPW = LAST_STG_DESC, #10 > 5883 
04 1B 0044C¢ BLEQU 65$ ; 
7c oA OA 80 044 MOVW #10, LAST_STG_DESC > 5885 
7C AE 9F 00452 65$:  PUSHAB’_LAST_STG_BESC : 5886 
1 pd 0045 PUSHL ; 
006D82A8 8F DDO 4a? PUSHL #7176872 : 
000000006 90 3 FB 450 CALLS #3, LIBSS1GNAL ; 
0000006 F B D1 00464 668: CMPL TOKEN, #9 : 5888 
OF 13 00468 BEQL ; 
006D80DA 8F DD 0046D PUSHL #7176410 : 5890 
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F 
PATPAR 16 =138 
v04- 14 
000000006 00 } 4 473 
Aj 47A 67%: 
BC AD 9F Q047C 688: 
1 DD Q047F 
00608270 F DD 00481 
000000006 00 3 + : 7 
0000270C =: BF 04 AE 01 004 6 69% 
OA ] 49 
59 00000000°EF 49 ; rH 
bg re 70$: 
03 o8 A § 4A6 718: 
FBB 1 QO4AA 
03 0c = 5? QO4AD 72$: 
FBA 1 00481 
04 00484 73$: 
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PATPAR 18-sep-19 4 00:19:31 VAX-11 Bliss- 
04-000 12288-1982 99:33:2 DISKSVMSMASTE 
; ' y 313 } ROUTINE MAR_REDUCTN (ACTION_KEY, STACK_POINTER) = 

: 1374 915 1 lee 

3 : 2 318 : } Functional description: 

; 137 918 1! Does the action associated with a reduction. The action is chosen 
; 1378 919 1! based on the ACTION_KEY, which is the name of an action routine 
; 1379 5920 1! as specified in the semantics table. 

; 1380 5921 1! 

: 1381 59 § 1 ! Calling sequence: 

; 138 59 1: 

: 138 29 41! CALLS #2, MAR_REDUCTN 

; 1384 925 1! 

3 138? 5926 1! Inputs: 

; 1386 5927 1! : 

; 1387 5928 1! ACTION _KEY - mame of the action routine 

; rs 2 2 : STACK_POINTER = top of stack in the context of the reduction 
3; 1390 5931 1! Implicit inputs: 

; 1391 2356 1! 

; 1392 3933 1! The names of the two parse stacks, PATSGL_SEMAN1 and 

; 1393 5934 1! PATSGL_SEMAN2. 

3 1394 5935 1! 

; 1395 5936 1 ! Outputs: 

3 1396 5937 1! ; 

3 io0r 5938 1! TRUE if the action occurred and does not want to cause a return 
; 1398 5939 1! from the parser. Otherwise a FALSE. 

; 1399 5940 1! 

; 1400 5941 1! none 

3 1401 rok 1! 

: eS 5945 1 ! Routine value: 

; 140 5944 1! 

3 1404 5945 1! TRUE or FALSE 

; 1405 5946 1! 

; 1406 5947 1 ! Side effects: 

: 1407 5948 1! 

; 1408 5949 1! The top of stack is often changed. Arguments are put into 

3; 1409 5950 1! Linked Lists, context values are altered. 

3 1410 5951 1 !-- 

3; 1411 2326 1 

; 1si¢ 5953 2 BEGIN 

3 141 5954 

3 sete s0e2 CASE .ACTION_KEY FROM 1 TO PATNONE OF 

ae Bg 1 

; 1418 5959 PATADDEXP]: ADDITION (.STACK_POINTER); 

3 1419 5960 PATALIBYT]: SET_BYTE_BIT; 

: 1420 5961 PATALILNG): SET LONG BIT; 

> 1421 3962 PATALINMO]: LINR_NAME(.STACK_POINTER); 

: 1668 596 PATALINM1 LINK"NAME(.STACK_POINTER * PATSK_SPOS_ONE); 

3 142 5964 PATALIPAG SET_PAGE_BIT; 

3 1426 965 PATALIQAD SET_QUAD_BIT; 

3 1425 208 PATALIWRD SET WORD BIT; 

> 1426 96 PATANDOPR]: § LOGTCAL_AND (.STACK POINTER); 

> 1427 5968 PATCHKNEC): § SET_NOT~ECO_BIT (.STACK POINTER); 

3; 1428 5969 PATCOMLINJ: EXECUTE-CMD™(.STACK_POIRTER); 


| 
| 
| 
| 
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wold GF EERIE BRE SStaoy senanteszenzy, a3 ! : 
oF oN thy PATSGL SEMAN1+32(R2], PATSGL_SEMANI+16(R2] : ; 
_— ” art 1 6 BLEG «Ss 43S F : 
' #7176784 : : 
4 Suara ; re on CALLS f LiBSstoNaL CR2], PATS$GL_SEMAN1+16- : ; 
50 10 A442 20 A442 8 0234 43$:  SUBL pal SG, SEMANT +32 , a ; : 
50 D6 0023¢ INCL : 
SEMAN1+32(R2], RO, VALUE, : : 
6442 53 50 20 Ad&2 EF est EXTZV parse ei er +32 : 
02 DD 00246 PUSHL 
: : : 
BR pat | BE E onrsinc oes : 7 
engnenbe’ x: $5 DD 00251 PUSHL  # : ; 
1 FB $0583 CALLS #1, PATSSET_MOD_LVL ; : 
ee Ht 11 0025A BRB 56$ : 5955 
50 08 Ac 00 iets 44$: MOVL STACK POINTER, RO 
ouao 7 if OO bo5e5 MOVE (RI), PATSGL  SENANTEROD ; 
og fe Ob HBBEE ss, BBL Ske, nomen, a isms] 
6420 10 A440 C4 0026F MULL2 PATSOC. SEMAN1+16CROJ, PATS$GL _SEMAN1CROJ ; 
58 11 00275 BRB a ~~ 
acl BE ackS FR BRsre “MF RBM, BAASECPOENTSatos, oarack senawicno | ; 
7F 11 00281 BRB 8 _ 
88 BE ach BB 88SEF 47 ROU, SIAC POUNTET Pon, parsox_semamttnos 5 ; 
09 be b9 iettd 48$: BBC, QUOTE JNoIC, 49$ 5989, 
err ae $0598 CALLS #1, LIBSSIGNAL ; | : 
“ FFO4 a 00298 49$ BRW — : 
09 65 £9 0029E 50$ BLBC Quore INDIC, 51$ | 
006D8258 8F DD 002A1 PUSHL 176792 : ; 
66 1 FB OO2A7 CALLS i, LIBS$SIGNAL | 
09 ree 39 BOSAD ae BLBC Quore INDIC, 53$ ; 5991 
8F DD 00280 PUSHL #7176792 ; ; 
eat 01 FB 002B6 CALLS At LIB$S : 
$6 08 ac 00 60589 53$ MOVL STACK_POINTER, RO 
‘ 6440 DD 00280 PUSHL  PATSGC_SEMANIEROJ 
68 01 FB 00 9 54% CALLS 4] PATSADD_ARG : 5955 : 
08 te b0 § 3 55$: MOVL STACK_POINTER, : 5992 
ened 10 A440 C8 002C9 BISL2 PATSGL_ OAM S18EROI. PATSGL_SEMANICROJ 
79 11 OOOCF 56$: BRB . se 
: ACK_POINTER, 
Pre 3 aa Cre ce | : 
02 DD 00209 USH 
000000006 _ EF ~* 0 FB a CALLS i tee PATSSET_OVERS 
14 11 O02E BRB dens 
8$:  MOVL aren POINTER, R2 ; 
= 8B aeas 4 4 ° PUSHL PATSGC_SEMAN1+8(R2) : 
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CH 
PATSSET_OVERS 
PATSSET_COMQUAL 
NDIC, 628 
5755 
LIBS$SIGNAL 
KP R 


PATSGL TAIL LST RO 
PAT$SGL~SEMAN1+16(R2], 8(RO) 


QuoTE JNDIC, 65$ 
#7176792 
#1, LIBSSIGNAL 
STACK_POINTER, RO 
PATSGC SERAN? °8CROJ 
LST, R1 

K_ POINTER, RO 
PATSGC_SEMAN1+24(ROJ, 8(R1) 
QUOTE_INDIC, 69$ 
#7176792 
#1, LIBSSIGNAL 
STACK _POINTER, RO 
PaTsce SEMAN1+16CROJ 

LST, R1 

STACK _POINTER, RO 
PATSGL _SERANT#32CR0], 8(R1) 


STACK POINTER, RO 


PATSGC_SEMAN1+8C(ROJ, PATSGL_SEMANICRO] 


#4, PATSGL_CONTEXT+#2 
#1, PATSSET_MOD_LVL 
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a3 

#2, PATSSET_OVERS 

#2, PATSGL_CONTEXT+3 
#128, PATSGL_CONTEXT 
PATSGL_CONTEXT 
#8, PATSGL_CONTEXT+2 


PATSGL_HEAD_LST, RO 
PATSGL-TAIL-LST, R1 
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1040 bytes, Routine Base: 


; Routine Size: 
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PATPAR 16-Sep-1984 00: 13:3) VAX-11 Bliss-32 V4.0-742 49 
v04-000 14-Sep-1984 12:52:42 DISKSVMSMASTER: CPATCH.SRCIPATPAR. B32. 79° (9) 
3: 1479 6019 1 END 
3; 1480 6020 0 ELUDOM 

-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
> PATSPLIT 3120 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) 
: PATSOWN N C, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: “PATSCODE 2245 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
boa ABS % 0 NOVEC,NOWRT,NORD ,NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 
; Library Statistics 
ets Sete i Mires cane ee ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 a 0 1000 00:01.7 


Information: 1 
Warnings: 0 
Errors: 


COMMAND QUAL IF 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1 


Size: 2245 code + 3124 data bytes 
Run Time: 01:10.1 

Elapsed Time: 03:31.4 

Lines/CPU Min 5155 


Lexemes/CPU-Min: 29406 
poner Used: 536 pages 
Compilation Complete 
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